|
|  Selective Castle PAtience
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Selective Castle"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  1
  WIDTH  2 * CW + 2 * 7 * COW + 2 * 11 * COW + CW
  HEIGHT 4 * CH
  ZeroToWin 52 - CARDSIN$2

| Foundations

  FOUNDATION
    X CW + 11 * COW + 7 * COW
    Y 0
    ID 2
    FIRST 1,13
    FLAGS RotateJoin NoFirstFly
  END

  FOR stack = 1 TO 3
    FOUNDATION
      X CW + 11 * COW + 7 * COW
      Y stack * CH
      ID 2
      FIRST -2
      FLAGS RotateJoin
    END
  END

| Left Stacks

  FOR stack = 0 TO 3
    STACK
      X 0
      Y stack * CH
      FIRST 1,13
      DEAL 7,1
      DRAGUPTO 1
      FLAGS ClickFly Join____ RotateJoin PaintRight
      ID 1
    END
  END

| Right Stacks

  FOR stack = 0 TO 3
    STACK
      X CW + 11 * COW + 7 * COW + CW
      Y stack * CH
      FIRST 1,13
      DEAL 6,1
      DRAGUPTO 1
      FLAGS ClickFly Join____ RotateJoin PaintRight
      ID 1
    END
  END

END
